From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 21 Apr 2004 19:13:00 +0000 (+0000)
Subject: Fix previous change.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~23033
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=827ec4be4ddc812504904e107317cda4c8ebb41a;p=emacs.git

Fix previous change.
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 224fd366a41..07c361fc054 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -3716,8 +3716,7 @@ being undefined will be suppressed."
 (byte-defop-compiler-1 with-no-warnings byte-compile-no-warnings)
 (defun byte-compile-no-warnings (form)
   (let (byte-compile-warnings)
-    (setcar form 'progn)
-    (byte-compile-form form)))
+    (byte-compile-form (cons 'progn (cdr form)))))
 
 ;;; tags